Sub prueba_Seek()
    Dim fichero As String
    fichero = "C:\Temp\NotasLineInput.txt"
    Open fichero For Input As #1
    Dim linea As String
    Do While Not EOF(1)
        Debug.Print "Posicin (" & Seek(1) & ")"
        Line Input #1, linea
        Debug.Print " Linea (" & linea & ")"
    Loop
    Debug.Print "Posicin (" & Seek(1) & ")"
    Close #1
End Sub
